Begin A1_DAT_SRT_Return

Short OnPCEquip
Short PCSkipEquip

Set PCSkipEquip to 1

If ( OnPCEquip == 1 )
  set OnPCEquip to 0

  Player->AddItem, "misc_de_cloth10", 1
  Player->RemoveItem, "misc_de_cloth10", 1

If ( "A1_DAT_SRT_TentPitched" == -1 )
	PlaySound, "Spellmake success"
	Player -> PositionCell, 1, -98, 3, 0 "Sea Rover's Tent"
  Else
    MessageBox "You can not return to a packed tent!"
  Endif
Endif

End